home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 7 / Amiga Format AFCD07 (Dec 1996, Issue 91).iso / serious / shareware / comms / internet / html-related / envwww09 / www / arexx / wizard.ged < prev   
Text File  |  1996-09-14  |  19KB  |  362 lines
  1. /* $VER: 1.0, ©1996 Dietmar Eilert. Create empty table */
  2.  
  3. OPTIONS RESULTS                             /* enable return codes     */
  4.  
  5. if (LEFT(ADDRESS(), 6) ~= "GOLDED") then    /* not started by GoldEd ? */
  6.     address 'GOLDED.1'
  7.  
  8. 'LOCK CURRENT RELEASE=4'                    /* lock GUI, gain access   */
  9. if (RC ~= 0) then
  10.     exit
  11.  
  12. OPTIONS FAILAT 6                            /* ignore warnings         */
  13. SIGNAL ON SYNTAX                            /* ensure clean exit       */
  14.  
  15. /* ------------------------ INSERT YOUR CODE HERE: ------------------- */
  16.  
  17. 'QUERY USER VAR=USER'
  18.  
  19. 'FIX VAR=USER'
  20.  
  21. do forever
  22.  
  23.     'REQUEST STRING TITLE="Homepage Wizard" BODY="*nWelcome to the Homepage Wizard !*n*nThis utility will help you to design your*nown homepage.*n*nYou can view the homepage created by this*nprogram with a web browser or upload the*npage to your WWW account so that other*nInternet users can visit your homepage.*n*nPlease enter your name:*n" OLD="' || USER || '" VAR=USER'
  24.  
  25.     if ((RC ~= 0) | (USER ~= "")) then
  26.         break
  27. end
  28.  
  29. if (RC = 0) then do
  30.  
  31.     'REQUEST STRING TITLE="Homepage Wizard" BODY="*nHello ' || USER || ',*n*nPlease enter your title. Leave the field empty*nif you don''t want to have your title displayed*non your home page.*n*nExample: Sales Manager*n" VAR=PROFESSION'
  32.  
  33.     if (RC = 0) then do
  34.  
  35.         'REQUEST STRING TITLE="Homepage Wizard" BODY="*nADDRESS (1/5)*n*nPlease enter your address. Leave the*nfield empty if you don''t want to have your*naddress displayed on your home page.*n*nStreet:*n" VAR=STREET'
  36.  
  37.         if (RC = 0) then do
  38.  
  39.             if (STREET ~= "") then
  40.                 'REQUEST STRING TITLE="Homepage Wizard" BODY="*nADDRESS (2/5)*n*nPlease enter your address. Leave the*nfield empty if you don''t want to have your*naddress displayed on your home page.*n*nCity:*n" VAR=CITY'
  41.  
  42.             if (RC = 0) then do
  43.  
  44.                 if (STREET ~= "") then
  45.                     'REQUEST STRING TITLE="Homepage Wizard" BODY="*nADDRESS (3/5)*n*nPlease enter your address. Leave the*nfield empty if you don''t want to have your*naddress displayed on your home page.*n*nState:*n" VAR=STATE'
  46.  
  47.                 if (RC = 0) then do
  48.  
  49.                     if (STREET ~= "") then
  50.                         'REQUEST STRING TITLE="Homepage Wizard" BODY="*nADDRESS (4/5)*n*nPlease enter your address. Leave the*nfield empty if you don''t want to have your*naddress displayed on your home page.*n*nCountry:*n" VAR=COUNTRY'
  51.  
  52.                     if (RC = 0) then do
  53.  
  54.                         if (STREET ~= "") then
  55.                             'REQUEST STRING TITLE="Homepage Wizard" BODY="*nADDRESS (5/5)*n*nPlease enter your phone number. Leave the*nfield empty if you don''t want to have your*nphone number displayed on your home page.*n*nPhone number:*n" VAR=PHONE'
  56.  
  57.                         if (RC = 0) then do
  58.  
  59.                             'REQUEST STRING TITLE="Homepage Wizard" BODY="*nE-MAIL*n*nPlease enter your e-mail address. Leave*nthe field empty if you have no e-mail*naddress or if you don''t want to have*nit displayed on your home page.*n" VAR=EMAIL'
  60.  
  61.                             if (RC = 0) then do
  62.  
  63.                                 'REQUEST STRING TITLE="Homepage Wizard" BODY="*nWelcome message*n*nPlease enter a short welcome message to*nbe included on your page*n" OLD="Thanks for visiting my homepage !" VAR=WELCOME'
  64.  
  65.                                 if (RC = 0) then do
  66.  
  67.                                     'REQUEST TITLE="Homepage Wizard" BODY="PICTURE*n*nWould you like to include a picture on*nyour homepage ? Suggested size is 200x200*npixels or smaller.*n*nNote: The picture format should be either*nGIF or JPG." BUTTON="!PICTURE|_No|_Cancel" VAR=SHOWPIC'
  68.  
  69.                                     if ((RC = 0) & (SHOWPIC ~= 0)) then do
  70.  
  71.                                         if (SHOWPIC = 1) then do
  72.  
  73.                                             'REQUEST FILE PATH="golded:tools/www/gif/" TITLE="Select the picture (GIF or JPG)" VAR=GIF'
  74.  
  75.                                             if ((RC ~= 0) | (GIF = "")) then
  76.                                                 SHOWPIC = 0;
  77.                                         end
  78.  
  79.                                         'REQUEST TITLE="Homepage Wizard" BODY="LINKS*n*nDo you want to have a favourite links*nsection included on your homepage ?" BUTTON="!LINKS|_No|_Cancel" VAR=FAVLINKS'
  80.  
  81.                                         if ((RC = 0) & (RESULT ~= 0)) then do
  82.  
  83.                                             if (FAVLINKS = 1) then do
  84.  
  85.                                                 SITES   = 0
  86.                                                 SUGGEST = 'TRUE'
  87.  
  88.                                                 do forever
  89.  
  90.                                                     if (SUGGEST = 'TRUE') then
  91.                                                         'REQUEST STRING TITLE="Homepage Wizard" BODY="*nSITE NAME*n*nPlease enter the name of one of your*nfavourite WWW sites:*n" OLD="GoldED Support" VAR=SITENAME'
  92.                                                     else
  93.                                                         'REQUEST STRING TITLE="Homepage Wizard" BODY="*nSITE NAME*n*nPlease enter the name of one of your*nfavourite WWW sites:*n" VAR=SITENAME'
  94.  
  95.                                                     if ((RC ~= 0) | (RESULT = "")) then
  96.                                                         break
  97.  
  98.                                                     'FIX VAR=SITENAME'
  99.  
  100.                                                     if (SUGGEST = 'TRUE') then
  101.                                                         'REQUEST STRING TITLE="Homepage Wizard" BODY="*nURL*n*nPlease enter the URL pointing to ' || SITENAME || ':*n" OLD="http://www.clearlight.com/~dietmar" VAR=SITEURL'
  102.                                                     else
  103.                                                         'REQUEST STRING TITLE="Homepage Wizard" BODY="*nURL*n*nPlease enter the URL pointing to ' || SITENAME || ':*n" OLD="http://" VAR=SITEURL'
  104.  
  105.                                                     if (SITEURL = "http://www.clearlight.com/~dietmar") then
  106.                                                         SUGGEST = 'FALSE'
  107.  
  108.                                                     if ((RC ~= 0) | (RESULT = "")) then
  109.                                                         break
  110.  
  111.                                                     SITES = SITES + 1
  112.  
  113.                                                     SITE.SITES = SITENAME
  114.                                                     URL.SITES  = SITEURL
  115.  
  116.                                                 end
  117.  
  118.                                                 if (SITES = 0) then
  119.                                                     FAVLINKS = 0
  120.                                             end
  121.                                         end
  122.  
  123.                                         'REQUEST Status="User input completed. Creating homepage ..."'
  124.  
  125.                                         /* home page generation */
  126.  
  127.                                         'QUERY ANYTEXT'
  128.  
  129.                                         if (RESULT = "TRUE") then
  130.                                             MORE
  131.                                         else
  132.                                             'NEW'
  133.  
  134.                                         'NAME NEW=homepage.html'
  135.  
  136.                                         'QUERY VER  VAR=VERSION'
  137.                                         'QUERY DATE VAR=DATE'
  138.  
  139.                                         TITLE    = "Homepage of " || USER
  140.                                         KEYWORDS = "homepage"
  141.  
  142.                                         'FIX VAR=USER'
  143.                                         'FIX VAR=PROFESSION'
  144.                                         'FIX VAR=STREET'
  145.                                         'FIX VAR=CITY'
  146.                                         'FIX VAR=STATE'
  147.                                         'FIX VAR=COUNTRY'
  148.                                         'FIX VAR=PHONE'
  149.                                         'FIX VAR=EMAIL'
  150.                                         'FIX VAR=WELCOME'
  151.                                         'FIX VAR=GIF'
  152.                                         'FIX VAR=VERSION'
  153.                                         'FIX VAR=DATE'
  154.                                         'FIX VAR=TITLE'
  155.  
  156.                                         'GOTO COLUMN=1'
  157.                                         'TEXT CR T="<!-- Created with ' || substr(VERSION, 7) ||' -->"'
  158.                                         'CR'
  159.                                         'TEXT CR T="<HEAD>"'
  160.                                         'TEXT CR T="<TITLE>"'
  161.                                         'TEXT CR T="' || TITLE || '"'
  162.                                         'TEXT CR T="</TITLE>"'
  163.                                         CR
  164.  
  165.                                         'TEXT CR T="<META NAME=*"description*" CONTENT=*"' || TITLE    || '*">"'
  166.                                         'TEXT CR T="<META NAME=*"keywords*"    CONTENT=*"' || KEYWORDS || '*">"'
  167.                                         'TEXT CR T="<META NAME=*"author*"      CONTENT=*"' || USER     || '*">"'
  168.                                         'TEXT CR T="<META NAME=*"generator*"   CONTENT=*"WWW publishing extensions for GoldED*">"'
  169.  
  170.                                         'CR'
  171.                                         'TEXT CR T="</HEAD>"'
  172.                                         'CR'
  173.                                         'TEXT CR T="<BODY BACKGROUND=*"bckgnd.gif*">"'
  174.                                         'CR'
  175.  
  176.                                         'TEXT CR T="<P>"'
  177.                                         'TEXT CR T="<H1 ALIGN=CENTER>This is the Homepage of ' || USER || '</H1>"'
  178.                                         'CR'
  179.                                         'TEXT CR T="<P>"'
  180.                                         'TEXT CR T="<HR>"'
  181.                                         'CR'
  182.                                         'TEXT CR T="<P>"'
  183.                                         'TEXT CR T="<SMALL><CENTER>U N D E R     C O N S T R U C T I O N</CENTER></SMALL>"'
  184.                                         'CR'
  185.                                         'TEXT CR T="<P>"'
  186.                                         'TEXT CR T="<CENTER><IMG SRC=*"cnstruct.gif*"></CENTER>"'
  187.                                         'CR'
  188.                                         'TEXT CR T="<P>"'
  189.                                         'TEXT CR T="<CENTER>Last update: ' || DATE || '</CENTER>"'
  190.                                         'CR'
  191.  
  192.                                         if (SHOWPIC = 1) then do
  193.  
  194.                                             GIFNAME = GIF
  195.  
  196.                                             pos = index(GIFNAME, ":")
  197.  
  198.                                             if (pos ~= 0) then
  199.                                                 GIFNAME = substr(GIFNAME, pos + 1)
  200.  
  201.                                             do forever
  202.  
  203.                                                 pos = index(GIFNAME, "/")
  204.  
  205.                                                 if (pos = 0) then
  206.                                                     break;
  207.                                                 else
  208.                                                     GIFNAME = substr(GIFNAME, pos + 1)
  209.                                             end
  210.  
  211.                                             'TEXT CR T="<P>"'
  212.                                             'TEXT CR T="<HR>"'
  213.                                             'CR'
  214.                                             'TEXT CR T="<P>"'
  215.                                             'TEXT CR T="<IMG SRC=*"' || GIFNAME || '*">"'
  216.                                             'CR'
  217.                                         end
  218.  
  219.                                         'TEXT CR T="<P>"'
  220.                                         'TEXT CR T="<HR>"'
  221.                                         'CR'
  222.  
  223.                                         if (WELCOME ~= "") then do
  224.  
  225.                                             'TEXT CR T="<P>"'
  226.                                             'TEXT CR T="<H2><IMG SRC=*"dot.gif*"> Information</H2>"'
  227.                                             'CR'
  228.                                             'TEXT CR T="' || WELCOME || '"'
  229.                                             'CR'
  230.                                             'TEXT CR T="<P>"'
  231.                                             'TEXT CR T="<HR>"'
  232.                                             'CR'
  233.                                         end
  234.  
  235.                                         if (STREET ~= "") then do
  236.  
  237.                                             'TEXT CR T="<P>"'
  238.                                             'TEXT CR T="<H2><IMG SRC=*"dot.gif*"> Address</H2>"'
  239.                                             'CR'
  240.                                             'TEXT CR T="' || USER || '<BR>"'
  241.  
  242.                                             if (PROFESSION ~= "") then
  243.                                                 'TEXT CR T="<I>' || PROFESSION || '</I><BR>"'
  244.  
  245.                                             'CR'
  246.                                             'TEXT CR T="<P>"'
  247.                                             'TEXT CR T="' || STREET || '<BR>"'
  248.  
  249.                                             if (CITY ~= "") then
  250.                                                 'TEXT CR T="' || CITY || '<BR>"'
  251.  
  252.                                             if (STATE ~= "") then
  253.                                                 'TEXT CR T="' || STATE || '<BR>"'
  254.  
  255.                                             if (COUNTRY ~= "") then
  256.                                                 'TEXT CR T="' || COUNTRY || '<BR>"'
  257.  
  258.                                             if (PHONE ~= "") then
  259.                                                 'TEXT CR T="' || PHONE || '<BR>"'
  260.  
  261.                                             'CR'
  262.                                         end
  263.  
  264.                                         'TEXT CR T="<P>"'
  265.                                         'TEXT CR T="<A HREF=*"mailto:' || EMAIL || '*">E-Mail: ' || EMAIL || '</A>"'
  266.                                         'CR'
  267.                                         'TEXT CR T="<P>"'
  268.                                         'TEXT CR T="<HR>"'
  269.                                         'CR'
  270.  
  271.                                         if (FAVLINKS = 1) then do
  272.  
  273.                                             'TEXT CR T="<P>"'
  274.                                             'TEXT CR T="<H2><IMG SRC=*"dot.gif*"> Favourite Links</H2>"'
  275.                                             'CR'
  276.                                             'TEXT CR T="<UL>"'
  277.  
  278.                                             do ITEM = 1 to SITES
  279.  
  280.                                                 'TEXT CR T="<LI> <A HREF=*"' || URL.ITEM || '*">' || SITE.ITEM || '</A>"'
  281.                                             end
  282.  
  283.                                             'TEXT CR T="</UL>"'
  284.                                             'CR'
  285.                                         end
  286.  
  287.                                         'TEXT CR T="</BODY>"'
  288.                                         'CR'
  289.                                         'TEXT CR T="</HTML>"'
  290.  
  291.                                         /* create data directory */
  292.  
  293.                                         do forever
  294.  
  295.                                             'REQUEST STRING TITLE="Homepage Wizard" BODY="*nThe Homepage Wizard wants to create a new*ndrawer for your homepage data.*n*nPlease specify a path (a new drawer *"www*" is*ncreated in the directory you specify):*n" OLD="sys:" VAR=DEST'
  296.  
  297.                                             if (RC ~= 0) then
  298.                                                 break
  299.  
  300.                                             if (DEST ~= "") then do
  301.  
  302.                                                 if (right(DEST, 1) ~= ':') then
  303.                                                     if (right(DEST, 1) ~= '/') then
  304.                                                         DEST = DEST || '/'
  305.  
  306.                                                 DEST = DEST || "www"
  307.  
  308.                                                 'FIX VAR=DEST'
  309.  
  310.                                                 if (exists(DEST)) then do
  311.  
  312.                                                     'REQUEST TITLE="Homepage Wizard" BODY="A WWW drawer already exists in this*ndirectory. Overwrite old files ?" BUTTON="!OVER|_No"'
  313.  
  314.                                                     if ((RC ~= 0) | (RESULT = 0)) then
  315.                                                         iterate
  316.                                                 end
  317.                                                 else
  318.                                                     'FILE NEWDIR NAME="' || DEST || '"'
  319.  
  320.                                                 'SAVE ALL NAME="' || DEST || '/homepage.html"'
  321.  
  322.                                                 shell
  323.  
  324.                                                 'copy golded:tools/www/data/cnstruct.gif ' || '"' || DEST || '"'
  325.                                                 'copy golded:tools/www/data/dot.gif '      || '"' || DEST || '"'
  326.                                                 'copy golded:tools/www/data/bckgnd.gif '   || '"' || DEST || '"'
  327.  
  328.                                                 if (SHOWPIC = 1) then
  329.                                                     'copy "' || GIF || '" "' || DEST || '"'
  330.  
  331.                                                 shell
  332.  
  333.                                                 'REQUEST TITLE="Homepage Wizard" BODY="Homepage creation completed. All files have*nbeen saved to the following directory:*n*n' || DEST || '*n*nUpload these files to your WWW account so*nthat other users can visit your homepage.*nContact your internet service provider for*ninformation on obtaining WWW accounts and*nuploading files to your account." BUTTON="!OK"'
  334.  
  335.                                                 'REQUEST STATUS="Thank you for using the GoldED Homepage Wizard !"'
  336.  
  337.                                                 leave
  338.                                             end
  339.                                         end
  340.                                     end
  341.                                 end
  342.                             end
  343.                         end
  344.                     end
  345.                 end
  346.             end
  347.         end
  348.     end
  349. end
  350.  
  351. /* ---------------------------- END OF YOUR CODE --------------------- */
  352.  
  353. 'UNLOCK' /* VERY important: unlock GUI */
  354. EXIT
  355.  
  356. SYNTAX:
  357.  
  358. SAY "Sorry, error line" SIGL ":" ERRORTEXT(RC) ":-("
  359. 'UNLOCK'
  360. EXIT
  361.  
  362.